/ EuroCD 3 / EuroCD 3.iso / Programming / BlitzBasic / XprExample / RobSerial.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 80 09 2e 62 20 69 6e 69 | 74 73 65 72 69 61 6c 7b |...b ini|tserial{|
|00000010| 64 65 76 6e 61 6d 65 24 | 2c 75 6e 69 74 2e 6c 2c |devname$|,unit.l,|
|00000020| 62 61 75 64 2e 6c 2c 73 | 65 72 66 6c 61 67 73 2e |baud.l,s|erflags.|
|00000030| 62 2c 62 75 66 66 73 69 | 7a 65 2e 6c 7d 00 20 20 |b,buffsi|ze.l}.  |
|00000040| 80 15 20 2a 53 65 72 69 | 61 6c 4d 50 2e 4d 73 67 |.. *Seri|alMP.Msg|
|00000050| 50 6f 72 74 2c 20 2a 53 | 65 72 69 61 6c 49 4f 2e |Port, *S|erialIO.|
|00000060| 49 4f 45 78 74 53 65 72 | 00 00 20 20 72 65 73 75 |IOExtSer|..  resu|
|00000070| 6c 74 2e 6c 20 3d 20 bc | 0f 00 20 20 2a 53 65 72 |lt.l = .|..  *Ser|
|00000080| 69 61 6c 4d 50 20 3d 20 | 30 00 20 20 2a 53 65 72 |ialMP = |0.  *Ser|
|00000090| 69 61 6c 49 4f 20 3d 20 | 30 00 00 20 20 2a 53 65 |ialIO = |0..  *Se|
|000000a0| 72 69 61 6c 4d 50 20 3d | 20 fe e2 00 20 20 80 0b |rialMP =| ...  ..|
|000000b0| 20 2a 53 65 72 69 61 6c | 4d 50 00 20 20 20 20 2a | *Serial|MP.    *|
|000000c0| 53 65 72 69 61 6c 49 4f | 20 3d 20 fe e0 28 2a 53 |SerialIO| = ..(*S|
|000000d0| 65 72 69 61 6c 4d 50 2c | 20 80 2f 20 2e 49 4f 45 |erialMP,| ./ .IOE|
|000000e0| 78 74 53 65 72 29 00 20 | 20 20 20 80 0b 20 2a 53 |xtSer). |   .. *S|
|000000f0| 65 72 69 61 6c 49 4f 00 | 20 20 20 20 20 20 2a 53 |erialIO.|      *S|
|00000100| 65 72 69 61 6c 49 4f 5c | 69 6f 5f 53 65 72 46 6c |erialIO\|io_SerFl|
|00000110| 61 67 73 20 3d 20 73 65 | 72 66 6c 61 67 73 00 20 |ags = se|rflags. |
|00000120| 20 20 20 20 20 2a 53 65 | 72 69 61 6c 49 4f 5c 69 |     *Se|rialIO\i|
|00000130| 6f 5f 52 42 75 66 4c 65 | 6e 20 3d 20 62 75 66 66 |o_RBufLe|n = buff|
|00000140| 73 69 7a 65 00 20 20 20 | 20 20 20 80 0b 20 fe c0 |size.   |   .. ..|
|00000150| 20 28 26 64 65 76 6e 61 | 6d 65 24 2c 75 6e 69 74 | (&devna|me$,unit|
|00000160| 2c 2a 53 65 72 69 61 6c | 49 4f 2c 30 29 20 3d 20 |,*Serial|IO,0) = |
|00000170| 30 00 20 20 20 20 20 20 | 20 20 2a 53 65 72 69 61 |0.      |  *Seria|
|00000180| 6c 49 4f 5c 69 6f 5f 53 | 65 72 46 6c 61 67 73 20 |lIO\io_S|erFlags |
|00000190| 3d 20 73 65 72 66 6c 61 | 67 73 00 20 20 20 20 20 |= serfla|gs.     |
|000001a0| 20 20 20 2a 53 65 72 69 | 61 6c 49 4f 5c 69 6f 5f |   *Seri|alIO\io_|
|000001b0| 42 61 75 64 20 3d 20 62 | 61 75 64 00 20 20 20 20 |Baud = b|aud.    |
|000001c0| 20 20 20 20 2a 53 65 72 | 69 61 6c 49 4f 5c 69 6f |    *Ser|ialIO\io|
|000001d0| 5f 42 72 6b 54 69 6d 65 | 20 3d 20 32 35 30 30 30 |_BrkTime| = 25000|
|000001e0| 30 00 20 20 20 20 20 20 | 20 20 2a 53 65 72 69 61 |0.      |  *Seria|
|000001f0| 6c 49 4f 5c 49 4f 53 65 | 72 5c 69 6f 5f 43 6f 6d |lIO\IOSe|r\io_Com|
|00000200| 6d 61 6e 64 20 3d 20 23 | 53 44 43 4d 44 5f 53 45 |mand = #|SDCMD_SE|
|00000210| 54 50 41 52 41 4d 53 00 | 20 20 20 20 20 20 20 20 |TPARAMS.|        |
|00000220| 2a 53 65 72 69 61 6c 49 | 4f 5c 69 6f 5f 53 74 6f |*SerialI|O\io_Sto|
|00000230| 70 42 69 74 73 20 3d 20 | 31 00 20 20 20 20 20 20 |pBits = |1.      |
|00000240| 20 20 2a 53 65 72 69 61 | 6c 49 4f 5c 69 6f 5f 52 |  *Seria|lIO\io_R|
|00000250| 65 61 64 4c 65 6e 20 3d | 20 38 00 20 20 20 20 20 |eadLen =| 8.     |
|00000260| 20 20 20 2a 53 65 72 69 | 61 6c 49 4f 5c 69 6f 5f |   *Seri|alIO\io_|
|00000270| 57 72 69 74 65 4c 65 6e | 20 3d 20 38 00 20 20 20 |WriteLen| = 8.   |
|00000280| 20 20 20 20 20 fe c2 20 | 28 2a 53 65 72 69 61 6c |     .. |(*Serial|
|00000290| 49 4f 29 00 20 20 20 20 | 20 20 20 20 72 65 73 75 |IO).    |    resu|
|000002a0| 6c 74 2e 6c 20 3d 20 bc | 0e 00 20 20 20 20 20 20 |lt.l = .|..      |
|000002b0| 80 22 00 20 20 20 20 20 | 20 20 20 fe e1 28 2a 53 |.".     |   ..(*S|
|000002c0| 65 72 69 61 6c 49 4f 29 | 00 20 20 20 20 20 20 20 |erialIO)|.       |
|000002d0| 20 2a 53 65 72 69 61 6c | 49 4f 20 3d 20 30 00 20 | *Serial|IO = 0. |
|000002e0| 20 20 20 20 20 20 20 fe | e3 28 2a 53 65 72 69 61 |       .|.(*Seria|
|000002f0| 6c 4d 50 29 00 20 20 20 | 20 20 20 20 20 2a 53 65 |lMP).   |     *Se|
|00000300| 72 69 61 6c 4d 50 20 3d | 20 30 00 20 20 20 20 20 |rialMP =| 0.     |
|00000310| 20 80 c0 00 20 20 20 20 | 80 22 00 20 20 20 20 20 | ...    |.".     |
|00000320| 20 fe e3 20 28 2a 53 65 | 72 69 61 6c 4d 50 29 00 | .. (*Se|rialMP).|
|00000330| 20 20 20 20 20 20 2a 53 | 65 72 69 61 6c 4d 50 20 |      *S|erialMP |
|00000340| 3d 20 30 00 20 20 20 20 | 80 c0 00 20 20 80 c0 00 |= 0.    |...  ...|
|00000350| 00 20 20 80 09 20 80 07 | 20 72 65 73 75 6c 74 00 |.  .. ..| result.|
|00000360| 80 02 20 80 09 00 00 80 | 08 20 73 68 75 74 64 6f |.. .....|. shutdo|
|00000370| 77 6e 73 65 72 69 61 6c | 7b 7d 00 20 20 80 15 20 |wnserial|{}.  .. |
|00000380| 2a 53 65 72 69 61 6c 4d | 50 2e 4d 73 67 50 6f 72 |*SerialM|P.MsgPor|
|00000390| 74 2c 20 2a 53 65 72 69 | 61 6c 49 4f 2e 49 4f 45 |t, *Seri|alIO.IOE|
|000003a0| 78 74 53 65 72 00 00 20 | 20 80 0b 20 2a 53 65 72 |xtSer.. | .. *Ser|
|000003b0| 69 61 6c 49 4f 00 20 20 | 20 20 2a 53 65 72 69 61 |ialIO.  |  *Seria|
|000003c0| 6c 49 4f 5c 49 4f 53 65 | 72 5c 69 6f 5f 43 6f 6d |lIO\IOSe|r\io_Com|
|000003d0| 6d 61 6e 64 20 3d 20 23 | 43 4d 44 5f 46 4c 55 53 |mand = #|CMD_FLUS|
|000003e0| 48 00 20 20 20 20 fe c2 | 20 28 2a 53 65 72 69 61 |H.    ..| (*Seria|
|000003f0| 6c 49 4f 29 00 20 20 20 | 20 2a 53 65 72 69 61 6c |lIO).   | *Serial|
|00000400| 49 4f 5c 49 4f 53 65 72 | 5c 69 6f 5f 43 6f 6d 6d |IO\IOSer|\io_Comm|
|00000410| 61 6e 64 20 3d 20 23 43 | 4d 44 5f 43 4c 45 41 52 |and = #C|MD_CLEAR|
|00000420| 00 20 20 20 20 fe c2 20 | 28 2a 53 65 72 69 61 6c |.    .. |(*Serial|
|00000430| 49 4f 29 00 00 20 20 20 | 20 fe c1 20 28 2a 53 65 |IO)..   | .. (*Se|
|00000440| 72 69 61 6c 49 4f 29 00 | 00 20 20 20 20 fe e1 20 |rialIO).|.    .. |
|00000450| 28 2a 53 65 72 69 61 6c | 49 4f 29 00 20 20 20 20 |(*Serial|IO).    |
|00000460| 2a 53 65 72 69 61 6c 49 | 4f 20 3d 20 30 00 20 20 |*SerialI|O = 0.  |
|00000470| 20 20 80 0b 20 2a 53 65 | 72 69 61 6c 4d 50 00 20 |  .. *Se|rialMP. |
|00000480| 20 20 20 20 20 fe e3 20 | 28 2a 53 65 72 69 61 6c |     .. |(*Serial|
|00000490| 4d 50 29 00 20 20 20 20 | 20 20 2a 53 65 72 69 61 |MP).    |  *Seria|
|000004a0| 6c 4d 50 20 3d 20 30 00 | 20 20 20 20 80 c0 00 20 |lMP = 0.|    ... |
|000004b0| 20 80 c0 00 00 80 02 20 | 80 08 00 00 00 80 09 2e | ...... |........|
|000004c0| 62 20 43 68 65 63 6b 43 | 61 72 72 69 65 72 7b 7d |b CheckC|arrier{}|
|000004d0| 00 20 20 80 15 20 2a 53 | 65 72 69 61 6c 49 4f 00 |.  .. *S|erialIO.|
|000004e0| 00 00 20 20 80 0b 20 2a | 53 65 72 69 61 6c 49 4f |..  .. *|SerialIO|
|000004f0| 00 20 20 20 20 2a 53 65 | 72 69 61 6c 49 4f 5c 49 |.    *Se|rialIO\I|
|00000500| 4f 53 65 72 5c 69 6f 5f | 43 6f 6d 6d 61 6e 64 20 |OSer\io_|Command |
|00000510| 3d 20 23 53 44 43 4d 44 | 5f 51 55 45 52 59 00 20 |= #SDCMD|_QUERY. |
|00000520| 20 20 20 fe c2 20 28 2a | 53 65 72 69 61 6c 49 4f |   .. (*|SerialIO|
|00000530| 29 00 20 20 20 20 80 0b | 20 28 2a 53 65 72 69 61 |).    ..| (*Seria|
|00000540| 6c 49 4f 5c 69 6f 5f 53 | 74 61 74 75 73 20 80 42 |lIO\io_S|tatus .B|
|00000550| 20 33 32 29 00 20 20 20 | 20 20 20 72 65 73 75 6c | 32).   |   resul|
|00000560| 74 2e 62 20 3d 20 bc 0f | 00 20 20 20 20 80 22 00 |t.b = ..|.    .".|
|00000570| 20 20 20 20 20 20 72 65 | 73 75 6c 74 2e 62 20 3d |      re|sult.b =|
|00000580| 20 bc 0e 00 20 20 20 20 | 80 c0 00 20 20 80 22 00 | ...    |...  .".|
|00000590| 20 20 20 20 72 65 73 75 | 6c 74 2e 62 20 3d 20 bc |    resu|lt.b = .|
|000005a0| 0f 00 20 20 80 c0 00 00 | 20 20 80 09 20 80 07 20 |..  ....|  .. .. |
|000005b0| 72 65 73 75 6c 74 00 80 | 02 20 80 09 00          |result..|. ...   |
+--------+-------------------------+-------------------------+--------+--------+